$text = file1.txt
open (DAT,"$text");
@stuff = <DAT>;
close(DAT);

open (NEWDAT, ">file2.txt");
print @stuff;
close(NEWDAT);
[download]

#!/usr/bin/perl -w

use File::Copy;

copy ("file1.txt","file2.txt");

print "Content-type: text/html\n\n";
#just to check...
if (-e "file2.txt"){
print "File copied";
}
[download]

Putting the contents of one file into another without renaming the original is generally known as copying. See File::Copy.

Those who know that they are profound strive for clarity. Those who
would like to seem profound to the crowd strive for obscurity.
            --Friedrich Nietzsche

#!/usr/bin/perl -w
use strict;

my $source_file = 'file1.txt';
my $copied_file = 'file2.txt';
my @contents;

open( SRC_FILE, "<$source_file" )
   or die( "Failed to read $source_file: $!" );
@contents = <SRC_FILE>;
close SRC_FILE;

open( COPY_FILE, ">$copied_file" )
   or die( "Failed to write to $copied_file: $!" );
print COPY_FILE @contents;
close COPY_FILE;
[download]

<a href="http://www.graq.co.uk">Graq</a>

$text = "file1.txt";
open (DAT,">file2.txt");
print DAT "$text\n" or die $!;
[download]

Courage, the Cowardly Dog

$text = "file1.txt";
$output = $text;
while (-f $output){
   $output .= ".new"
}
open(DAT,"$text") or die "Couldn't open $text for read: $!";
open(OUT,">$output") or die "Couldn't open $output for write: $!";
#your code goes here
#stuff like while(<DAT>)
#and print OUT $stuff_to_print;
[download]

thor

-Bird