Select Code to Download

#!/usr/bin/env perl
@keywd=`cat /home/vikash/maya/keywords`;
...
}

__END__

open(INFO,$file);
while(<INFO>){
...
print if /\bfloat\b/;
}
close(INFO)