Select Code to Download

#!perl -w
use strict;
...

my $cmd = "grep -e '$pattern' file";
print "cmd = $cmd\n";