Perl cancel example