Read system command and execute
#!/usr/local/bin/perl -T $ENV{'PATH'} = '/bin:/usr/bin:/usr/local/bin'; while (<>) { $command = $_; system($command); }