#!/usr/bin/perl -w

# print "THIS PROGRAM NEEDS SUDO\n";
# exit 0;

$path = `pwd`;
$path .= "/";

$file = $ARGV[0];

die "No file to search for in current dir" unless (defined $file);

die "No such file in current dir" unless (-e $file);

@result1 = `ls -i $file`;

for (@result1){
    next if (/^\n/);
    if (/^(\d+)\s+\D+/){
	$inode = $1;
    }
}


# Another option is use HERE, before, sudo -v to cache the user of sudo.
# The timeout for sudo -v is 15 minutes.

@result2 = `sudo debugfs -R 'stat <$inode>' /dev/sda2`;

for (@result2){
    next if (/^\n/);
    if (/crtime/){
	print;
	print "\n";
	last;
    }
}

exit 1;