http://paperlined.org/src/pl/jollies/backend/NeverTMPbackend.pm

package NeverTMPbackend;

    use strict;
    use warnings;

    use BerkeleyDB;
    use Storable;
    use LWP::UserAgent;


    use Exporter;
    #@EXPORT = qw( );


# set up a LWP::UserAgent to mimic as close as possible a normal browser (i.e. try to not overtly appear to be a robot)
sub configure_UserAgent {
    my $ua = LWP::UserAgent->new();

    $ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9) Gecko/2008052906 Firefox/3.0");

    return $ua;
}



1;