#! /usr/bin/perl
#
# Usage: ./o32_dump.pl filename
#

system("root \'o32_dump.C\(\"$ARGV[0]\"\' | less");

# EOF
