#!/usr/local/bin/perl use strict; use warnings; use File::Find; use Env qw(QUERY_STRING); use Carp; sub print_header { printf "Content-type: text/html\n\n"; printf "\n"; printf "\n"; printf "
\n";
  printf "findmp3.pl\n";
}

sub print_footer {
	printf "\n\n";
}

my $query=();
sub get_query_string {
	$query = $ENV{QUERY_STRING};
  printf "
\n";
	printf "string in title: \n";
	printf "
\n";
}

print_header;

get_query_string;

print_footer;

exit;

my $fn=$query=~s/mp3=//; 
my $basedir="/home1/sirdavec/public_html";

sub wanted {
  if($File::Find::name=~$fn) {
    my $found=$File::Find::name;
    $found=~s#$basedir#http://sirdave.com#g; #keep the /mp3/
    printf "%s
\n", $found, $found;
  }
}

my $out="$basedir/mp3/findmp3/$fn.html";
open my $tee, "|-", "tee $out";

my @directories=$basedir."/mp3/";
find(\&wanted,  @directories);
print_footer;
close $tee;