package Test;

use strict;

sub testing1 {
  print "At testing1 \n";
  $_[0] =~ s/foo/test/g;
}

sub testing2 {
  print "At testing2 \n";
  my $string = $_[0];
  $string =~ s/foo/test/g;
  return $string;
}

1;