my $myfile1 = 'D:\mypath\myfile1';
my $myfile2 = 'D:\mypath\myfile2';

use strict;
use warnings;

unlink $myfile1;

my $myhandle;
unlink $myfile2;
open $myhandle, '>', $myfile2;
close $myhandle;