#!/usr/bin/perl -w

use Album2;
use strict;

my $weichspueler = new Album2();

$weichspueler -> set_attributes(
  'Titel'     => "Life for Rent",
  'Interpret' => "Dido"
);

$weichspueler->set_attribute(
  'Ausleiher', "Busenfreundin"
);

print $weichspueler ->
  get_attribute('Titel') .
  " ist ausgeliehen an\n" .
  $weichspueler ->
  get_attribute('Ausleiher'), ".\n";

exit 0; # Führt Destruktor aus.