#!/usr/bin/perl

use strict;
use warnings;

package File;
my $hostname = File->new(
                path          => '/etc/hostname',
                content       => "foo\n",
                last_mod_time => 1304974868,
                );

use Scalar::Util 'blessed';
#print blessed($hash);      # undef
print blessed($hostname);  # File