Using run file in perl @ARGV

command_line_parsing.pl

#! /usr/bin/perl
use strict;
#my @ARGV(line);
#$line = <stdin>;
my $line = $ARGV[0];
#print "all command line arguments == $#ARGV\n";
print "\$line == $line\n";
system($line);
print "\$line == $line\n";
print "all command line arguments == $#ARGV\n";
my $count = $#ARGV;
for(my $i=0; $i <= $count; $i++)
{
 print "$i == $ARGV[$i]\n";
}
my $path = $ARGV[5];
print "Given path == $path\n";
system(cd $path);

Run File

./command_line.pl    \
clear = /usr/bin/clear    \
path = /home/shabbir/perl_hash