16:56 mxn@sklave [~/c64/shell]% perl main.pl
c64>help
command list:
copy:   read/write floppy images
detect: detect floppies
dir:    list floppy contents
exit:   exits
format: format floppy
help:   display help for a command
reset:  reset floppy
c64>help copy
copy: usage copy <source> <dest>
copies source to dest, at least one of them has to be a floppydrive-id
c64>copy 8 foo.d64
copying from 8 to foo.d64...
 1: *********************                  
 2: *********************                  
 3: *********************                  
 4: *********************                  
 5: *********************                  
 6: *********************                  
 7: *********************                  
 8: *********************                  
 9: *********************                  
10: *********************                  
11: *********************                  
12: *********************                  
13: *********************                  
14: *********************                  
15: *********************                  
16: *********************                  
17: *********************                  
18: *******************                    
19: *******************                    
20: *******************                    
21: *******************                    
22: *******************                    
23: *******************                    
24: *******************                    
25: ******************                     
26: ******************                     
27: ******************                     
28: ******************                     
29: ******************                     
30: ******************                     
31: *****************                      
32: *****************                      
33: *****************                      
34: *****************                      
35: *****************       100%   683/683
683 blocks copied.
done.
c64>format
do you really want to format the floppy and destroy all the data on it?(y/n) y
formatting floppy in drive 8, name "foo", id 20...
###################################
00, OK,00,00
done.
c64>dir
dir listing:
0 ."foo             " 20 2a
664 blocks free.             
00, ok,00,00
c64>exit
bye
16:57 mxn@sklave [~/c64/shell]%