use Net::APNS::Persistent;

  my $devicetoken_hex = '44AE398FE3FDAFE7D7B42F8A2828D38345DD4C67A9BBC1075AAF92371C2A86A1'; #iPhone 6

  my $apns = Net::APNS::Persistent->new({
    sandbox => 1,
    cert    => 'iMareas.pem',
    key     => 'iMareas.pem',
    passwd  => 'sistemas',
  });

  $apns->queue_notification(
    $devicetoken_hex,
    {
      aps => {
          alert => 'prueba!',
          sound => 'default',
          badge => 1,
      },
    });

  $apns->send_queue;

  $apns->disconnect;


