#!/usr/bin/perl
my $argument_1 = shift;
die "Invalid input" unless $argument_1;

##</code><code>##

#!/usr/bin/perl
use Getopt::Std;
getopt('oDI');
print "\nOption o = $opt_o";