quick question for you guys

in my bash script i have the following line:
perl -le 'print join("n", grep {((stat($_))[7] ne "0")}< $1*>)'

I pass a parameter to the bash script but for some reason it doesnt replace $1 in the line with that parameter, any ideas?

subshell it
`$1`
thnx will try

not sure if perl will handle that though
might need brackets or something

great it worked
thanks!