Select Code to Download

#!/usr/bin/perl

use strict;
...
    print "content-type: text/html\n\nError: $@";
    exit;
}

package Foobar;
use strict;

...
}

1;

package fbconfig;

sub get {
...
}

1;