#!/usr/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use CGI ':standard';


my $time = time;
my $timepage = "/path/data/back_up/edit/$time.txt";

open FH, "> $timepage" or die "Can't open $timepage: $!";
close FH;

print "Content-type: text/html\n\n";
print "$timepage";