use ...
Main( @ARGV );
exit( 0 );
sub Main {
   my $query ...
   my @attachements = snafu_attaches( $query );
   my $mime ...
}