use strict;
use warnings;

my $address = 'myaddress@myhost.com';
my $subject = 'nothing';
system( "mail $address -s $subject < random.txt" ) == 0
  or die "mail failed: $?";