#!/usr/bin/perl
use strict;
use warnings;
use Unsigned;

tie my $wert, 'Unsigned', 10;
print $wert, "\n";

$wert = 100;
print $wert, "\n";

$wert = -100;
print $wert, "\n";

$wert = 'hallo';
print $wert, "\n";