Select Code to Download

$ perl -Mstrict -Mwarnings -le '
    my @xml_paths = qw{
...
20130211/ABC/input/daily/11337111.xml
20130416/ABC/input/daily/11337101.xml
20130614/ABC/input/daily/11337890.xml

#!/usr/bin/perl
open(INFO,"$ARGV[0]");
@array=<INFO>;
close (INFO)

#!/usr/bin/perl

...
open my $input_fh, '<', $ARGV[0];
my @xml_paths = <$input_fh>;
close $input_fh;