#!/usr/bin/perl -w
use strict;
my $file="alert";
system("/bin/mailx -s 'INFO' brian\@sutechy.com < $file");