#!/usr/bin/perl
#
use DynaLoader;

push(@dl_library_path,'/lib');
my $symbol=$ARGV[0];
@dl_resolve_using = DynaLoader::dl_findfile(qw(-ldl -lc));
my $lib_name='/lib/libc.so.6';

my $libref=DynaLoader::dl_load_file($lib_name,0x00001);
if (not defined $libref) { die "load lib: $! \n";}
my $symref =DynaLoader::dl_find_symbol($libref, $symbol);
#$symref -= 0x74000;

printf "%s : %4x \n",$symbol,$symref;