Select Code to Download

use Getopt::Long;

...
    error_info();
}

perl -w tmp.pl --help

use Getopt::Long;

...
    print "Showing help\n";
    error_info();
}