#!/usr/bin/perl

##### Copyright 2003 AcornSoft ####

open(FILE, "/tmp/crontab.txt");
open(CRONFILE, "> /etc/crontab") or die "Couldn't open the file to write to";
while(<FILE>) {
print CRONFILE $_;
}
close CRONFILE;
close FILE;

unlink('/tmp/crontab.txt') or die "Can't delete the file";