#!/usr/bin/perl

use strict;
use warnings;

use Devel::MAT;

my $cmd = shift @ARGV;

my $pmat = Devel::MAT->load( shift @ARGV // die "Need dumpfile\n" );

my $df = $pmat->dumpfile;

print "Perl memory dumpfile from perl ", $df->perlversion, "\n";
print "Heap contains ", scalar $df->heap, " objects\n";

sub Devel::MAT::Cmd::printf
{
   shift;
   my ( $fmt, @args ) = @_;

   printf $fmt, @args;
}

$pmat->load_tool_for_command( $cmd )->run_cmd( @ARGV );
