my $report = <<EOF;

Here is the Results from the Script
-------------------------------------
$PrStat
-------------------------------------
$Mail
-------------------------------------
$Iface

EOF

open my $wfh, '>', "Report_$d.txt"
  or die $!;

print $wfh $report;

close $wfh or die $!;

print "This script has finished!\n\n" .
      "Generating Email!\n\n";

system ("mail test@server.com < Report_$d.txt");