System Functions Perl

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