#!/usr/bin/perl
use strict;
use DBI;

my $fqfn = '/home/daveb/temp.txt';

#my @stats = lstat $fqfn;
my @stats = (-1000, 3000000000, -22345);

my($dev, $ino, $garbage) = @stats;

print "$dev\n$ino\n$garbage\n";