Cron Script to email torrent download progress

torrentstatus.pl

#!/usr/bin/perl

my $path = "/folder/to/monitor";
my $mailCMD = "/usr/bin/msmtp";
my $mailTo = 'you@gmail.com';

chdir $path;
my @files = `du -hs * | cut -f2`;
my @actualSizes = `du -hs * | cut -f1`;
my @apparentSizes =  `du -hs --apparent-size * | cut -f1`;
my $out = "[$path]\n";

for my $i (0 .. $#files){
	my $filename = $files[$i];
	my $actualSize = $actualSizes[$i];
	my $apparentSize = $apparentSizes[$i];
	chomp $filename;
	chomp $actualSize;
	chomp $apparentSize;
	$out = $out . "$actualSize / $apparentSize  $filename\n";
}
$out .= "\n[DISK USAGE]\n" .  `df -hl -x tmpfs --output=target,pcent`; 
print $out;
system("printf  \"Subject: Torrent Status\n%s\" \"$out\" | $mailCMD $mailTo");