#!/usr/bin/perl
use strict;
use warnings;

my $f = `fortune`;
chomp(my $w = `echo \$USER`);
print "\nHello, $w!  Your fortune for today is:\n\n $f\n";