Help for this page

Select Code to Download

Select or download this

#!usr/bin/perl
use strict;
use warnings;
...
open(FO,">test.txt") or die "unable";
print FO $mech->content;
print "DONE!";