#! /usr/bin/perl

for $n (glob ('../export/ftp/*'),'../dbman-export.tgz') {
	my @s = stat $n;
	my $size = $s[7];
	my $n2 = $n;
	$n2 =~ s/.*\///;	
	print sprintf("%-30s %6.1f kB\n",$n2,$size/1024.0);
}
