Select Code to Download

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

open(FILE, "$file");

...
{
        print | mailx -s 'Title' myemailaddresshere;
}

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