#!/usr/bin/perl -w
use strict;
# use other modules here
# global variables here
exit(  main( @ARGV )  );
# subroutines here
sub main {
    my $object= Widget::->new();
    # more code here
    return 0;
}