#!/usr/bin/perl -w 
################################################
# First line is called a "shebang" and on a *nix or Cygwin environment loads the 
# interpreter
use strict;  # keep an eye on our code looking for major faults
use LWP::UserAgent;

my $res=authenticate();        # Call your sub.  You might want to  
                               # decide what to do with the return code.
# more code goes here
exit(0);

#the code you posted goes here