my @options = (
   -S => 'SYSTEMX',
   -P => 'QGPL/SPYVIEW',
   -o => 'l',
);

# Avoid being confused for an option.
$file =~ s{^(?=-)}{./};

system(lpr => @options, $file)