Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my $form = "\@<<<<<<<<<<<<<<<<<< \@<<<<<<<<<<<<<<<\r\n";
formline($form, $name, $home);
print $^A;

#!/usr/bin/perl -w
use strict;
...
    } 
    exit;
}