MacPerl::Answer("Ich bin fertig");

$buttonnr = MacPerl::Answer(
	"was willst du tun?",
	"sichern",
	"nicht sichern", 
	"weiss nicht");
if($buttonnr == 2)
{
    print "du willst also sichern\n";
}
elsif ($buttonnr == 1) # nicht sichern
{
    print "du willst also nicht sichern\n";
}
elsif($buttonnr == 0)
{
    print "und woher soll ich es wissen?\n";
}

$name = MacPerl::Ask("Dein Name", "Albert Einstein");
MacPerl::Answer("Hallo $name");

$fileformat = MacPerl::Pick("welches Format", "Text", "Html", "Postscript");
if($fileformat eq "Text")
{
...
}

require "StandardFile.pl";
$filename = StandardFile::GetFile("wähle eine Text Datei" ,"TEXT");
open( INPUT, $filename) 
    or die "can not open $filename";