#!/usr/bin/perl -s
@ARGV == 1 or die "usage ThisScript filename\n";
$list_of_songs=$ARGV[0];
chomp $list_of_songs;
open ($LOS, "$list_of_songs") or die "$list_of_songs cannot be opened for reading \n";
@songs=<$LOS>;
close($LOS);

foreach $song_title (@songs)
{
   chomp $song_title;
   search_limewire($song_title);
}