search_and_replace.pl

sort.pl

ip_stat.pl

sub.pl

print "$0 $ARGV[0] $#ARGV\n";

$err = system("copy c b");

@a = (1,2,4,5,7,7);

print "$#a\n";   

print ">$err< >$?<\n";

@a = `dir asdas`;

print $a;
print ">$?< >$@<\n";