snip ------------ copy the following to ~/.fldigi/scripts/qrzQuery.pl

#!/usr/bin/perl
#!/usr/bin/perl

# Author: Dave Freese, W1HKJ
# Date: 20080701

use strict;
use warnings;

die "Usage: $0 CALLSIGN\n" unless (@ARGV == 1);

use LWP::Simple;

$_ = get("http://www.qrz.com/callsign?callsign=$ARGV[0]");
print "\$NAME?\$QTH?\n" and exit(1) if (!defined($_) || /not in our database/);

s!.*<div id="calldata"><span class="paraln">\n(.+?)</span>.*!$1!se;

my @a = split /<br.+>\n/;
$a[0] =~ s/\s*(\w+).*/$1/e;
$a[2] =~ s/\s*(\D*)(\s*\d*)/$1/e;

print "\$NAME$a[0]\$QTH$a[2]\n";

snip------------------------------------------------