#!/usr/bin/perl

if(open(FILE,"mdsim.pl")) {
    print "Content-Type: application/x-perl\n";
    print "Content-disposition: attachment; filename=mdsim.pl\n\n";
    print while(<FILE>);
    close FILE;
} else {
    print "Content-Type: text/html\n\n";
    print "Error pulling simulator code.\n";
}