Select Code to Download

#!/usr/bin/perl -w 
use strict; 
...
    @raw=$input; 
} 
print "@raw\n";

#!perl
use strict;
...
    push @raw, $input;
}
print "@raw\n";

#!perl

...
    print;
}
print $/;