Very cool Linux scripts I have found on the Internet.

#!/usr/bin/perl -W
 
use strict;
use POSIX ("strftime");
# A script to backup some files.
my $homedir = "$ENV{'HOME'}";
my $user = $ENV{'LOGNAME'};
my $date = strftime("%A-%d-%B-%Y-%H-%M-%S", localtime);
my $backupdrive = "/media/$user/backups";
print "Which directory do you want to backup?n";
chomp(my $dir = <STDIN>);
 
if(!$dir) {
	print "No Directory selected!n";
	exit;
} else {
	my $target="$homedir/$dir";
	my $file = "$homedir/$user-$date.tgz";
	system("tar -cvf $file $target");
	print "nnSuccessful backup of directory: $dir.n";
# Naming the outfile.
	my $outfile="$user-$date.tgz";
# Moving the backup file to the destination.
	print "Moving the archive $outfile to the backup drive.n";
	system("mv $outfile $backupdrive");
 
# Checking to see if the backup file exists.
 
	my $filename = "$backupdrive/$outfile";
	if (-e $filename) {
		print "nnBackup file exists. Great Success!\n\n";
	}
	exit;
}