#!/usr/bin/perl 
 
use Getopt::Std; 
 
// 곱하기 알고리즘이 적용된 함수 
sub mul 
{ 
    my($arg1, $arg2) = @_; 
    print "Function Mul\n";  
    print "$arg1 * $arg2 = ", $arg1 * $arg2,"\n"; 
} 
 
 
// 더하기 알고리즘이 적용된 함수 
sub sum  
{ 
    my($arg1, $arg2) = @_; 
    print "Function Sum\n";  
    print "$arg1 + $arg2 = ", $arg1 + $arg2,"\n"; 
} 
 
 
####################################### 
# MAIN 
# 사용법 : ./myprg.pl -t [sum|mul]  
####################################### 
my %SubRoutine = ( 
  "mul" => \&mul, 
  "sum" => \&sum, 
); 
 
my %opts = (); 
my $algorithms; 
getopt("t:", \%opts); 
if (defined $opts{t}) 
{ 
  if (exists $SubRoutine{$opts{t}}) 
  { 
    $algorithms = $SubRoutine{$opts{t}}; 
    print "Algorithm $opts{t}"; 
  } 
  else 
  { 
    print "Algorithm Failure : [send|receive]\n"; 
  } 
} 
 
## 알맞은 알고리즘을 선택한다. 
&{$algorithms}(5, 10); 
print "Close\n";