system("cat $file | mailx -s 'Title' emailaddresshere"); 

##</code><code>##

open(FILE, "$file");

while (<FILE>)
{
        print | mailx -s 'Title' myemailaddresshere;
}
##</code><code>##

system("/usr/sbin/ping $_");