Select Code to Download

my ($frg) = @ARGV;
$frgfile = "$frg";
open(frgfile) or die("Unable to open FRG file");

use strict;
use warnings;

open my $fd, '<', $ARGV[0] or die $!;
while (<$fd>) {
...