Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    my $return_val = ( scalar(@THINGS) == 0 ) ? return 0 : return 1;
}
__END__

500 - DONE - SERVER - Username Username Username Username Username not
+ defined

500 - DONE - SERVER - Username Password httpd.conf Username Password h
+ttpd.conf Username Password httpd.conf Username Password httpd.conf U
+sername Password httpd.conf not defined