#!/usr/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser);
use CGI ':standard';
print "Content-type: text/html\n\n";

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

#typo

open FH, "> $timepage" or die_nice( "Can't open $timepage: $!" );
close FH;

print "$timepage"; 

sub die_nice {
    my ( $err ) = @_;
    print "Content-Type: text/html\n\n$err\n";
  warn "ERR - $err\n";
  exit 1;
}

##</code><code>##

#!/usr/bin/perl
print "Content-Type: text/html\n\nWe have ignition!"

#!/usr/bin/perl
use CGI ':standard';
print header(), 'Engage CGI';

#!/usr/bin/perl
use CGI ':standard';
use CGI::Carp qw(fatalsToBrowser);
print header(), 'Enterprise You are clear to go with Carp';
print "Roger Houston testing Carp with typo now

etc