ShellExecute(print => $file, 0, 0, 'SW_HIDDEN');  

##</code><code>##

system "c:\\apps\\gswin32c.lnk -dPrinted -dBATCH -q -sDEVICE=mswinpr2 -dNoCancel -dNOPAUSE \"$file\"";