#!/usr/bin/perl 

use warnings;
use strict;

#use SOAP::Lite on_action => sub {sprintf '%s/%s', @_}, autodispatch;
use Data::Dumper;

#my $soap = new SOAP::Lite 
#        -> uri('http://never.no')
#        -> proxy('https://admin.frikanalen.tv/ScheduleSite/ScheduleProxyWebService.asmx');
#
#        my $obj = $soap->GetItems(
#         SOAP::Data->name(
#            'startTimeUtc' => '2011-08-12T09:00',
#            'endTimeUtc' => '2011-08-13T0900',
#        )
#        );
#   if ($obj->fault) {
#        print join ', ',
#              $obj->faultcode,
#              $obj->faultstring;
#    }
#my $res = $obj->result;


use SOAP::Lite +autodispatch => 
    uri => 'http://never.no', 
    proxy => 'https://admin.frikanalen.tv/ScheduleSite/ScheduleProxyWebService.asmx', 
    on_fault => sub { my($soap, $res) = @_; 
      die ref $res ? $res->faultstring : $soap->transport->status, "\n";
    }
  ;
  print getStateName(21);
 
#print Dumper($res);

print getStateName(21);