#!usr/bin/perl
# "To be or not to be, that's a question!"

open DNA, $AGRV[0] || die "Die!!";
...