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