use strict;
package SAR;

&get_args (@ARGV);

sub get_args {
	my @help = <DATA>;
	($ARGV[0] eq "/?") && (die @help);
}

return 1;

__DATA__

testing 1
testing 2
testing 3