#!/usr/bin/perl

use strict;
use warnings;

use URI::Escape;
use LWP::UserAgent;

my $u = "username";
my $p = "password";
my $to = "0171123456789";
my $type = "basicplus"; 
my $text = "asdf" .

my $url = 'https://sms77.de/gateway/' .
    '?u=' . uri_escape($u) .
    '&p=' . uri_escape($p) .
    '&to=' . uri_escape($to) .
    '&text=' . uri_escape($text) .
    '&type=' . uri_escape($type);

my $useragent = LWP::UserAgent->new;
my $request = HTTP::Request->new('GET');
$useragent->timeout(10);
$useragent->protocols_allowed( ['https'] );
$request->url($url);

my $response = $useragent->request($request);
 
if (($response->is_success) && ($response->decoded_content eq "100")) {
    print "Fertig";
}
else {
    die $response->status_line;
}

print $text;