my $filename = "this file has spaces.txt"
open (SPACEY, "$filename") || die;