##

#!/usr/bin/perl

use strict;
use Getopt::Std;

my %opts = ();
getopt( 'h', \%opts );
if ( $opts{h} ) {
    print "Printing help...";
}
else {
    print "No help requested, none given.";
}

##

##

[wintercm@juvenile test]$ ant -buildfile build-perl.xml 
Buildfile: build-perl.xml

run_perl:
     [exec] Printing help...

BUILD SUCCESSFUL

Total time: 2 seconds

##

##

[wintercm@juvenile test]$ ant -buildfile build-perl.xml 
Buildfile: build-perl.xml

run_perl:
     [exec] No help requested, none given.

BUILD SUCCESSFUL

Total time: 2 seconds