use Net::APNS::Persistent;

  #MIOmy $devicetoken_hex = 'AF571DEF64C7BCDCE0AC07995101D08DCF1EF53ABDACA300F96120EFDC70FF8E';
  my $devicetoken_hex = '575DC2269B7801930589E46A621B8E068B9C2EB3CA6832F77B0A969D104BF4C2';
  #my $devicetoken_hex = 'F65BC218A6D2CF6DD7E83E4939558C2339415540B995882E0DBBFFE264645E3C';
  #my $devicetoken_hex = '106112027786D517AF65E2F61907D3D973A356A26C6D322CD9570595A5954691'; #IG
  #my $devicetoken_hex = '9261B831E2285250464EB4039D087B25B3BD149498214C9F47B74EAD3CFC7ED0'; #MIGUE

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

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

  $apns->send_queue;

  $apns->disconnect;


