Select Code to Download

#!/usr/bin/perl -w

use strict;
...
sub error {
    print $data;
}

my $data;
print $data++;