Select Code to Download

my $filename = "faketext.txt";
open my $fh, '<', $filename or die "Can't write to '$filename': $!\n";

while(my $eachLine = <$fh>)
{
...
     print "Mean: ",          mean(@dataset),    "\n";
     print "Standard Dev.: ", std_dev(@dataset), "\n";
}