Select Code to Download

#!/usr/bin/perl
use strict;
...
print $q->header('text/plain'),
      $dir;
exit(0);

open OUT, ">/path/to/bg.cnt" or die "can't open bg.cnt for writing";

use CGI::Carp 'fatalsToBrowser'