#!/usr/bin/perl -w
use strict;
use File::Copy;

my $new="mytest";
open NEW, ">$new" or die "I can not open file to write: $!\n";
print NEW "this is a test";
close NEW;
if (-f "$new") {
    print "Created $new file just fine\n";
}else{
    print "Did not create $new, most odd\n";
    exit 1;
}

copy ("$new", "$new.new") or die "can't make a copy: $!\n";
if (-f "$new.new") {
    print "Copied $new to $new.new file just fine\n";
}else{
    print "Could not copy $new, most odd\n";
    exit 1;
}

unlink $new or die "can not unlink it: $!\n";
if (-f "$new") {
    print "Failed to delete $new\n";
    exit 1;
}else{
    print "Deletion works too\n";
}

rename ("$new.new", "$new") or die "cant move it: $!\n";
if (-f "$new") {
    print "Renamed $new.new to $new file just fine\n";
}else{
    print "Rename failed, most odd\n";
    exit 1;
}

unlink $new or die "can not unlink it at the end: $!\n";
if (-f "$new") {
    print "Failed delete second $new, that is realy odd\n";
    exit 1;
}else{
    print "Deletion works again\nEverything looks fine\n";
}