File copy from one directory in Perl

It will copy file from one directory to other directory

it will copy file from its current directory to HTML directory


#!/usr/bin/perl
use File::Copy;

print "content-type: text/html \n\n"; #The header
$filetobecopied = "myhtml.html.";
$newfile = "html/myhtml.html.";
copy($filetobecopied, $newfile) or die "File cannot be copied.";