#! /usr/bin/perl -ws
use strict;

my $test = "hello";
$test =~ m/(.*)/;
print "got password = $1\n\n";