programming-examples/perl/SystemFunction/Read system command and execute.pl

#!/usr/local/bin/perl -T

$ENV{'PATH'} = '/bin:/usr/bin:/usr/local/bin';

while (<>) {

   $command = $_;

   system($command);    

}