From 2ba7140b77822cc5251280715c84a2250a4227e3 Mon Sep 17 00:00:00 2001
From: Dan Buch <daniel.buch@gmail.com>
Date: Tue, 4 Jan 2011 22:39:37 -0500
Subject: [PATCH] data types

---
 cli/datatypes.pl | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 cli/datatypes.pl

diff --git a/cli/datatypes.pl b/cli/datatypes.pl
new file mode 100644
index 0000000..ec27e31
--- /dev/null
+++ b/cli/datatypes.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+my $foo = 'foo';
+print "\$foo=$foo\n";
+
+my @foo = (1, 2, 3);
+print "\@foo=@foo\n";
+
+my %foo = (
+    1 => 'one',
+    2 => 'two',
+    3 => 'three',
+);
+print "\%foo=" . %foo . "\n";
+
+my $log = *STDIN;
+print $log . "\n";