my $munged_data = `analysis_program $data`;

##</code><code>##

#Old Code
my $data = $ARGV[0];
do_stuff($data);

#New Code
package Munger;
sub munge_data {
  my $data = shift();
  do_stuff($data);
}
1;