Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

open(FH, $ARGV[0]) || die("Cannot open:$!");
...
Books    6    159330999    159331289    +     Author
Books    6    159316268    159316398    +     Author
Books    6    159330999    159331245    +     Author