#! /usr/bin/perl -w

my $directory_name = "/bin";
my $total_file_size = `du -s $directory_name`;
my $date = `date`;

print "size is $total_file_size, date=$date\n";