open('FILE',$srs) or die $1;  

while(<FILE>)

##</code><code>##

open(my $FILE, '<', $srs) or die $!;