my $cgi   = new CGI;
my @param = $cgi->param();
...
my $full = $path.$param[0];
...
open(FILE, "$full") || error();