my @playlist;
if ($ARGV[0] =~ /\.m3u$/i) {
        @playlist = fill_playlist($ARGV[0]);
} elsif( @ARGV ) {
   @playlist = @ARGV;
} else {
   say_error( "No playlist given. Please select some songs for me to play!" );
}

sub fill_playlist {

   my $playlist = shift;
   my @return;
   if (-r $playlist) {
        open(LIST,"<$playlist") or die "couldn't open $playlist: $!";
        while(<LIST>) {
                next if /^#/;
                chomp;
                push @return, $_;
        }
        close(LIST);
   } else {
        say_error( "There was a problem accessing this playlist. Please select some songs for me to play!" );
        exit;
   }

  return @return;
}