###############FILE I/O##############
open  ($seq, "<", "L2seq1.txt")
    or die "Could not open file 'L2seq1.txt' $!";
$line = <$seq>;
$line = <$seq>; # this is supposed to be here
print "$line";
close $seq;

------------------
Text w/i (local) file L2seq1.txt;
MGNACGGSLRSKYLSFKQTASQRHDTDDNNNAAAADSPKKPSRPPAAAKTDDHPVSASAPAAAMRRGQAPADLGSVLGHPTPNLRD
LYAMGRKLGQGQFGTTYLCTELSTGVDYACKSISKRKLITKEDIEDVRREIQIMHHLSGHKNVVAIKGAYEDQLYVHIVMELCAGG
ELFDRIIQRGHYSERKAAELTRIIVGVVEACHSLGVMHRDLKPENFLLANKDDDLSLKAIDFGLSVFFKPGQTFTDVVGSPYYVAP
EVLLKHYGPEADVWTAGVILYILLSGVPPFWAETQQGIFDAVLKGFIDFDSDPWPVISESAKDLITKMLNPRPKERLTAHEVLCHP
WIRDHGVAPDRPLDPAVLSRIKQFSAMNKLKKMALRVIAESLSEEEIAGLKEMFQTMDADNSGAITYDELKEGLRKYGSTLKDTEI
RDLMDAADIDNSGTIDYIEFIAATLHLNKLEREEHLVAAFSYFDKDGSGYITVDELQQACKEHNMPDAFLDDVINEADQDNDGRID
YGEFVAMMTKGNMGVGRRTMRNSLNISMRDAPGAL

----------------

general% perl test2.pl
Use of uninitialized value in string at test2.pl line 7.
general%