Shell Programming and Scripting

my ( $help, $version, $list );
my $query = 0;
my $default = '';
 
GetOptions(
  'd|default=s' => \$default,
  'q|query=s' => \$query,
  'v|version' => \$version,
  'h|help|?'  => \$help,
  'l|list' => \$list
) or pod2usage( 2 );
 
pod2usage( 1 ) if $help;
 
if ( $version ) {
  $VERSION =~ s/\$//g;
  print "$basenm $VERSION\n";
  exit( 0 );
}
 
pod2usage( 1 ) if ( !$query );
 
if ( $list ) {
  my $catcon = "/app/share/ecctools/etc/sysconfig/ecc-config.xml";
   open($catcon);
   print $catcon; 
   close($catcon);
  exit ( 0 );
}

if ( $list ) {
  my $catcon = "/app/share/ecctools/etc/sysconfig/ecc-config.xml";
   open(my $file_to_cat, '<', $catcon) || die("Could not open $catcon\n\t$!");
   while(<$file_to_cat>){
       print $_;
   }
   close($file_to_cat);
  exit ( 0 );
}