ch 031 task 2 complete

2 files changed, 10 insertions, 0 deletions

diff --git a/challenge-031/anton-fedotov/.task2-dyn-var.pl.swp b/challenge-031/anton-fedotov/.task2-dyn-var.pl.swp
new file mode 100644
index 0000000000..9711c1a625
--- /dev/null
+++ b/challenge-031/anton-fedotov/.task2-dyn-var.pl.swp
diff --git a/challenge-031/anton-fedotov/task2-dyn-var.pl b/challenge-031/anton-fedotov/task2-dyn-var.pl
new file mode 100755
index 0000000000..56eaa65238
--- /dev/null
+++ b/challenge-031/anton-fedotov/task2-dyn-var.pl
@@ -0,0 +1,10 @@
+#!/usr/bin/env perl
+
+use warnings;
+use v5.10;
+
+my $name = shift;
+my $value = shift;
+if (defined($value)) {$$name = $value}
+else {$$name = 'I love Star Wars'}
+say "Variable named $name have value: $$name";