#!/usr/bin/perl
#Perl script to backup sever. Jan 7th 2004.
$server = drive;
chomp($date = system("date \t"));
system("mkdir C:\Server Backup\$date");
system("xcopy "C:\Documents and Settings\PD\My Documents\* c:\server Backup\test\"";