#!/usr/bin/perl -w

use Album1;
use strict;

my $weichspueler = Album1 ->
  anlegen("Life for Rent", "Dido");

$weichspueler ->
  ausleihen("Busenfreundin");

print $weichspueler->{'Titel'} .
  " ist ausgeliehen an\n" .
  $weichspueler->ausgeliehen, ".\n";

exit 0; # Führt Destruktor aus.