#!/usr/bin/perl -w
use strict;
&one;
sub one {
  my $a = "hello";
  &two($a);
}
sub two {
  my $a = shift;
  print $a;
}