Help for this page

Select Code to Download

Select or download this
```
my $pdbline = <IN>;
```

Select or download this

my $filename = $ARGV[0];
open(my $fh, '<:encoding(UTF-8)', $filename)); 
while (my $pdbline = <$fh>) {