my $atime = $info->atime; # time of last access (seconds since epoch)
my $mtime = $info->mtime; # time of last data modification
my $ctime = $info->ctime; # time of last file status change

##</code><code>##

# if no argument given, default to current directory
my $startdir = cwd();
@ARGV = $startdir unless @ARGV;
# if argument given , overwrite cwd
$startdir = "@ARGV";
# convert /usr/bin to _usr_bin for filename
($startdir = $startdir) =~ s/\//_/g;

##</code><code>##

my $startdir = $ARGV[0] || cwd();
$startdir =~ s/\//_/g;

##</code><code>##

# get the current date to append to output filename
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
my $cyear = $year+1900;
my $cmonth = $mon+1;
if ( $cmonth < 10 ) {$cmonth = "0" . $cmonth;}
my $cday = $mday;
if ( $cday < 10 ) { $cday = "0" . $cday; }
my $cdate = "_$cday" . "_$cmonth" . "_$cyear";
$txtfileout = "permrestore" . $startdir . $cdate;

##</code><code>##

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
my $txtfileout = sprintf "permrestore%s_%02d_%02d_%04d", $startdir, $mday, $mon, $year;

##</code><code>##

use POSIX qw( strftime );
my $txtfileout = strftime "permrestore" . $startdir . "_%d_%m_%Y", localtime;

##</code><code>##

# subroutines
sub time_as_date($)
{
my ($time) = @_;
my $date = localtime($time);
return $date;
}

##</code><code>##

my $size = $info->size; # size in bytes
# ...
my $adate = time_as_date($atime);
my $mdate = time_as_date($mtime);
my $cdate = time_as_date($ctime);

##</code><code>##

my $perms = sprintf("%04o", $mode & 07777);

# ...

print "\# ORIG PERM = $filename\t$uid\t$gid\t$perms\t$mdate";

##</code><code>##

sub time_as_date($)

# ...

sub print_info($)

##</code><code>##

use File::Find ();

# ...

sub find(&@) { &File::Find::find }

##</code><code>##

*name = *File::Find::name;

##</code><code>##

*name = \$File::Find::name;

##</code><code>##

print "\n Do you want to continue (y/n)? ";
$answer = <STDIN>;

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
use File::Find;

find sub {
	my $filename = $File::Find::name;
	my ( $mode, $uid, $gid, $mtime ) = ( stat $filename )[ 2, 4, 5, 9 ];
	my $mdate = localtime( $mtime );

	# discard file type info from 'mode' and put in usual numeric format
	my $perms = sprintf( "%04o", $mode & 07777 );

	print "# ORIG PERM = $filename\t$uid\t$gid\t$perms\t$mdate\n";
	print "chmod $perms $filename\n";
	print "chown $uid:$gid $filename\n";
}, @ARGV ? @ARGV : '.';

##</code><code>##

#!/bin/bash
if [ "$1" ] ; then DIR="$1" ; else DIR="$PWD" ; fi
SCRIPT="permrestore${DIR//\//_}$( date +_%d_%m_%Y )";
permrestore "$DIR" | tee "$SCRIPT"
chmod a+x "$SCRIPT"

##</code><code>##

#!/bin/bash

FORMAT="# ORIG PERM = %p\t%U\t%G\t%m\t%Tc"
FORMAT="$FORMAT\nchmod %m %p"
FORMAT="$FORMAT\nchown %U:%G %p"
FORMAT="$FORMAT\n"

if [ "$1" ] ; then DIR="$1" ; else DIR="$PWD" ; fi
SCRIPT="permrestore${DIR//\//_}$( date +_%d_%m_%Y )";

find "$DIR" -printf "$FORMAT" | tee "$SCRIPT"
chmod a+x "$SCRIPT"