open LPR, ">LPT1:"
  or die "Couldn't open printer";
print LWP <>;

##</code><code>##

my $file = 'foo.xls';
system("print $file");