start new payment transaction;
while (something is on the conveyer) {
  scan item;
}
tell costumer total price;
take money;
calculate change;
return change;
say goodbye;

##</code><code>##

--
#!/usr/bin/perl
for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/}