1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20:
#!/usr/bin/perl use strict; use warnings; use CGI; my $cgi = CGI->new; my %FORM = $cgi->Vars; my $ht=`hostname`; # my $decrypt"XXXXXXXXXXXXXXXXXXXXX"; #### encrypted pwd my $acct = $FORM{'acct'}; open my $out_fh, '>>', "/tmp/matt.out" or die "failed to open </tmp/matt.out> $!"; print $out_fh "done with account $FORM{'acct'} or $acct\n"; close $out_fh;