#!perl -w

use strict;
use Win32::Resources;

my $filename = "C:/path/to/file.dll";

my $data = Win32::Resources::LoadResource(
    filename => $filename,
    type => 'STRING',
    name => '1',
    language => '0'
);

print "$data\n";