sub searchFile {
    my $query = shift;
    my $filename = $query->param('filename');
    my $conid = $query->param('conid');
    my $datetime = $query->param('datetime');

    my $oldfile=$filename;
    my ($date,$time) = split(/ /,$datetime);
    $filename="/tmp/$conid$date$time$filename";
    $filename =~ s/[:-]//g;

    print $query->header(-type=> "application/octet-stream",-attachment=>"$oldfile");
    open(NEWFILE,"<$filename") or die "Couldn't open file '$filename': $!";
    binmode(NEWFILE);
    binmode STDOUT;
    print <NEWFILE>;	
    close(NEWFILE);
}