#!/usr/bin/perl -w
use strict;
my $filename = shift || "Fav_mov.txt";
open (FILE, ">>$filename") or die "can't open $filename: $!\n";
print "Your favorite movie: ";
my $line = <>;
print FILE "$line";
print "Thank you!\n";
close(FILE);

##</code><code>##

$_=$,=q,\,@4O,,s,^$,$\,,s,s,^,b9,s,
$_^=q,$\^-]!,,print