Wysyłanie danych POSTem

[user]

Plik test:

#!/usr/bin/perl 
  use HTTP::Request::Common qw(POST);
  use LWP::UserAgent;
  $ua = LWP::UserAgent->new; 
  my $req = POST 'http://127.0.0.1/file.php',
     [ a.sd => 'wartosc' ];
  print $ua->request($req)->as_string;

Plik file.php:

<?php
echo $_POST['a.sd'];
?>

Kod nie dziala poniewaz nazwa pola przesylanego postem zawiera kropke, tak sie sklada ze pisze skrypt w ktorym jest to niezbedne. Do pliku php dociera $_POST['asd']; a nie tak jak powinno $_POST['a.sd'];
Z gory dziekuje za pomoc.

Edit:
Jesli plik test zapisze w ten sposob:

#!/usr/bin/perl 
  use HTTP::Request::Common qw(POST);
  use LWP::UserAgent;
  $ua = LWP::UserAgent->new; 
$asd="a.sd";
  my $req = POST 'http://127.0.0.1/file.php',
     [ $asd => 'wartosc' ];
  print $ua->request($req)->as_string;

To do pliku php dociera $_POST['a_sd']; co nadal nie rozwiazuje mojego problemu