Cant't find files

Hello:

I have a problem with my following subroutines.
The call to the subroutine fails to open the
header and footer. Macperl interpreter reports
no such file in directory. Macperl interpreter
reports the following error.

Could not open HD 1:desktop folder:samrt:html:header.html
No such file or directory

Could not open HD 1:desktop folder:samrt:html:footer.html
No such file or directory


Is the program okay?

Thanks


# Print the HTML header
sub print_header {
print "Content-type: text/html\n\n";
open (HEADER,"$basepath$delim$header") || print "Could not
open $basepath$delim$header $! \n";
while (<HEADER>) {
print $_;
 }
close(HEADER);
}
## END print_header;

#Print the HTML footer
sub print_footer {
open (FOOTER,"$basepath$delim$footer") || print "Could not
open $basepath$delim$footer $! \n";
while (<FOOTER>) {
print $_;
 }
close(FOOTER);
}
## END print_header;