#!/usr/bin/perl
$^W=1;
use CGI;
$| = 1;
print "Content-type: text/html\n";
print "Hello, World!\n";
open ($in, "<", "source.list") or die "can't open file: $!";
@src_name = grep /^[A-B]/, <$in>;
close $in;
print $src_name[0];
print $src_name[$#argument];