#! /usr/bin/perl
use IO::Socket::INET;
$socket=IO::Socket::INET -> new("www.bnb.bg:80") or die "Cannot open socket $!";
print $socket "GET /bnb/rates.nsf/vWebRatesByMonthBG/\$First HTTP/1.1\nHost: www.bnb.bg\n\n";
while (<$socket>){
$data .=$_;
if ($_=~ /<\/html>/i){$socket->close;}
}

и имаш съдържанието в $data
за POST заявки само сменяш GET с POST

воля, воля... и пак воля...