Help for this page

Select Code to Download


  1. or download this
    Main( @ARGV );
    exit( 0 );
    ...
      );
    }
    
  2. or download this
    sub SendFile {
        my $cgi = shift || CGI->new;
        my $file = shift or die "What file to send?!";
    ...
        close $fh;
        close STDOUT;
    }
    
  3. or download this
    #!/usr/bin/perl
    require 'ConvertDates.pl';
    
    ...
            return $A;
    }
    
  4. or download this
    #!/usr/bin/perl
    require 'ConvertDates.pl';
    ...
        }
    }
    __END__
    
  5. or download this
    sub sshMeSomeSlotsPortsNodes {
        my( $id, $start_date, $end_date ) = @_;
    ...
        }
        return \%network;
    }