/usr/share/doc/libboulder-perl/examples/genbank3.pl is in libboulder-perl 1.30-4.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 | #!/usr/bin/perl
# This requires LWP to be installed.
#use lib '.','..';
use Boulder::Genbank;
use Boulder::Stream;
$gb = new Boulder::Genbank(-accessor=>'Entrez',-param=>[qw/M57939 M28274 L36028/]);
$stream = new Boulder::Stream;
while (my $s = $gb->get) {
$stream->put($s);
}
|