# 
my $num = 0x100;
my $chr = string of $num;      # not sure what this should be
call_f2($chr);
sub call_f2{
  my $str = shift;
  &f2($str);
}
sub f2 {
  my $str = shift;
  print ($str);
}
# I want to print 100, is it possible?