#!/usr/bin/perl

use strict;
use warnings;
my $thef = "f";
my $ful="../../../".$thef;
print "$ful\n";
unlink($ful) or die "unable to delete $ful: $!\n"