$ perl -we'$file = "foo.bak"; ${"foo.bak"} = "seq 10|"; open $file or die "nope:$!"; print for <$file>'
1
2
3
4
5
6
7
8
9
10