patch for mberends++' Net::SMTP

diff --git a/t/01-simple.t b/t/01-simple.t
index 1efa557..b23d423 100644
--- a/t/01-simple.t
+++ b/t/01-simple.t
@@ -4,14 +4,19 @@ use Test::Differences;
 plan 1;
 
 my Net::SMTP $smtp .= new( 'smtp.xs4all.nl' );
-$smtp.mail( 'root@autoexec.demon.nl' );
-$smtp.to( 'webmaster@autoexec.demon.nl' );
-$smtp.data;
-$smtp.datasend("To: webmaster\n");
-$smtp.datasend("Subject: Perl 6 Net::SMTP test\n");
-$smtp.datasend("\n");
-$smtp.datasend("Perl 6 Net::SMTP test.\n");
-$smtp.dataend;
-$smtp.quit;
+
+given $smtp {
+    .mail( 'root@autoexec.demon.nl' );
+    .to( 'webmaster@autoexec.demon.nl' );
+    .data;
+    .datasend($_) for
+        "To: webmaster\n",
+        "Subject: Perl 6 Net::SMTP test\n",
+        "\n",
+        "Perl 6 Net::SMTP test.\n";
+    .dataend;
+    .quit;
+}
+
 eq_or_diff( 1, 1, 'initial' );