(my $login = get_arg(FCP_LOGIN="USER/PASS") =~ tr/\"//d;

__DATA__
FCP_REQID=103806
FCP_LOGIN="USER/PASS"
FCP_USERID=3944 
FCP_PRINTER="noprint"