open(my $handle,'|-', 'lp -') or die "Oops: $!";