#!/usr/bin/perl -w
use strict;
use Module qw( do_stuff );
my $var = ....
do_stuff($var);
exit 0;