$ yes|perl -nwe 'BEGIN {print "$$\n"} do "file_with_DATA.pl"; print `ps -o rssize $$`'
26279
 RSS
1120
 RSS
1128
 RSS
1132
[..etc..]
 RSS
5564
 RSS
5572
 RSS
5576