#!/usr/bin/perl -w
use strict;
my $cmd = "mail -s '@ARGV' " . $ENV{EMAIL} . ' </dev/null';
print $cmd. "\n";
system $cmd;