Help for this page

Select Code to Download

Select or download this

while (<DATA>) {
    print;
    ( my $after = (split /=/)[1] ) =~ s/"//g;
...
FCP_LOGIN="USER/PASS"
FCP_USERID=3944
FCP_PRINTER="noprint"