Select Code to Download

Main( @ARGV );
exit( 0 );
...
  );
}

sub SendFile {
    my $cgi = shift || CGI->new;
    my $file = shift or die "What file to send?!";
...
    close $fh;
    close STDOUT;
}

#!/usr/bin/perl
require 'ConvertDates.pl';

...
        return $A;
}

#!/usr/bin/perl
require 'ConvertDates.pl';
...
    }
}
__END__

sub sshMeSomeSlotsPortsNodes {
    my( $id, $start_date, $end_date ) = @_;
...
    }
    return \%network;
}