#!perl

use Mac::Text::MPEdit;

PREFS({
    x_tl => 16,
    y_tl => 52
});

$file_1 = $ENV{MACPERL}.'Perl Artistic License';
$file_2 = $ENV{MACPERL}.'README';
$str_1 = 'Hello there, here is a string';

print MPE(\$file_1); # open a file
print MPE(\$file_2); # open a file
print MPE($str_1);   # transfer a string
print MPE();         # manually open file or create new

END { MPE_QUIT() }