#!/usr/bin/perl -w
use strict;
use FTPSession;
use Util;
exit main();
[...]
sub main {
    my $ftp= FTPSession->new(...);
    my $util= Util->new( $ftp );
    [...]
    return 0;
}