Select Code to Download

my $line = qx{grep "^ARGV[0]\|" filename.txt}

open FILE, .... or die "blah...:$!";
..grep it...
close FILE;