+
+sub currentTimestamp{
+ my $timestamp;
+ my ($year, $month, $day, $hour, $min, $sec);
+ ($year, $month, $day, $hour, $min, $sec) = (localtime(time))[5,4,3,2,1,0];
+ $timestamp = sprintf ("%02d/%02d/%04d %02d:%02d:%02d", $day, $month+1, $year+1900, $hour, $min, $sec);
+ return $timestamp;
+}
+
+sub sizePretty {
+ my $size = shift;
+ foreach ('B','KB','MB','GB','TB','PB')
+ {
+ return sprintf("%.2f",$size)." $_" if $size < 1024;
+ $size /= 1024;
+ }
+}