rlm@4: #!/usr/bin/perl rlm@4: rlm@4: rlm@4: print $ARGV[0]; rlm@4: use WWW::Mechanize::Firefox; rlm@4: my $mech = WWW::Mechanize::Firefox->new(autoclose => 0); rlm@4: $mech->get($ARGV[0]);