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

##</code><code>##

use strict;
use warnings;

##</code><code>##

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