#!/usr/bin/perl -w 
# Using SWITCH (case) statment 
use Switch; 
 
foreach my $arg (@ARGV) { 
  print "Input arguments: @ARGV\n"; 
  print "Actual argument: $arg\n"; 
  print "Second argument: $ARGV[1]\n\n"; 
  switch ($arg) { 
    case "-c" { 
      print "Actual argument $arg\n"; 
      print "Second argument: $ARGV[1]\n"; 
      my $secarg = $ARGV[1]; 
      #my $secarg = shift (@ARGV); 
      print "Shifted argument: $secarg"; 
    } 
    else { 
      print "Unknown argument: $arg\n"; 
    } 
  } 
  print "End of cycle.\n\n"; 
} 
 
 
print "Shifted argument: $secarg";

$ ./test.pl -c a 
Name "main::secarg" used only once: possible typo at ./test.pl line 25. 
Input arguments: -c a 
Actual argument: -c 
Second argument: a 
 
Actual argument -c 
Second argument: a 
Shifted argument: aEnd of cycle. 
 
Input arguments: -c a 
Actual argument: a 
Second argument: a 
 
Unknown argument: a 
End of cycle. 
 
Use of uninitialized value in concatenation (.) or string at ./test.pl line 25. 
Shifted argument: