#!/usr/local/bin/perl

# GET COMMAND
@command_argument = @ARGV;

# ASK IF REALLY WANT TO EXECUTE
print "Really do 'lpr -Php4a -h @command_argument' ? [y] ";

# GET ANSWER
$response = <STDIN>;
if ( ($response eq "y\n") || ($response eq "\n") )
{
   system("lpr -Php4a -h @command_argument");
}