use warnings;
use strict;
open(PS,"ping localhost|") || die "Failed: $!\n";
while ( <PS> )
{
  #-- do something here
}

##</code><code>##

use warnings;
use strict;
open (my $file, '>', 'output.txt') or die "Could not open file: $!";
my $output = `example.exe`; 
die "$!" if $?; 
print $file $output;

##</code><code>##

use Learning::Perl;
use Beginning::Perl::Ovid;
print "Awesome Books";