perl curl

#!/usr/bin/perl

use strict; use warnings;

use HTTP::Tiny;

#use JSON qw(decode_json);

use Data::Dumper;

 

my $url = "{url}";

my $data = {

login_id => 'R',

key => '8583',

};

 

my $response = HTTP::Tiny->new->post_form($url, $data);

my @info = split /,/, $response->{'content'};

 

print ( Dumper @info );