Select Code to Download

#!/usr/bin/perl -w
use strict;
...
} else {
        print "Couldn't submit form:$!\n";
}

Couldn't submit form:Connection reset by peer