package SORT;                             
use X;                                    
require Exporter;                         
@ISA = qw(Exporter);                      
@EXPORT = qw(sorted);                      
sub by_id {                               
   $a->id <=> $b->id;                     
} 
sub sorted { sort by_id @_ }                  
1;