use strict;
use warnings;

main();

sub main {
     my $var1 = "foo";
     my $var2 = "bar";
     my $return_val = process_data ($var1, $var2);
     # ...
}