#!perl

sub main
{
  my $variable = 42;
  my $result = library_call($variable);
  # more code
}

# other subroutines.

exit main();