#!/usr/bin/perl
system(qq[find ~ -size +1024k -printf "%p: %s\\n" -ok rm \\;]) == 0
  or die "System call failed: $?";